home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / prog_pas / rkey31tp.zip / DEMOAPPW.PAS < prev    next >
Pascal/Delphi Source File  |  1994-06-05  |  2KB  |  55 lines
  1. { DemoAppW - Turbo Pascal/Windows version of the RegKey demonstration program.}
  2. {            Demonstrates the use of file-based registration key validation   }
  3. {            within a program using the RegKey system. Displays one of two    }
  4. {            simple messages based upon whether or not the user is            }
  5. {            registered. To test in registerd mode, use KeyGen to generate    }
  6. {            a *.KEY registration key file for DemoApp, and place that file   }
  7. {            in the current default directory. To test in unregistered mode   }
  8. {            remove any valid *.KEY files from the current default directory. }
  9.  
  10. program DemoAppW;
  11.  
  12. uses RegKeyW,             { This must be included in any program using RegKey }
  13.      WinProcs,
  14.      Strings;
  15.  
  16. var
  17.    RegisteredMode       : RKValid;     { Variable to store mode to operate in }
  18.    RegistrationString   : string[255];     { To store name of registered user }
  19.    MessageString        : string[255];     { To store message to be displayed }
  20.    NullTerminatedString : array [0..256] of char;    { Null terminated string }
  21.  
  22.  
  23. begin
  24.  
  25.    { Check for a valid registration key file }
  26.  
  27.    RegKeyFileValidate('*.KEY',            { Filespec of registration key file }
  28.                       '0C9HMN1NDL',           { Application's validation code }
  29.                       'Your Name', 0,         { Your RegKey registration info }
  30.                       RegistrationString,  { Where reg. string will be placed }
  31.                       255,                      { Maximum size of reg. string }
  32.                       RegisteredMode);  { Where to store result of validation }
  33.  
  34.  
  35.    if RegisteredMode = RKRegistered then
  36.    begin
  37.  
  38.       { If we are operating in registered mode, display registered message }
  39.       MessageString := 'DemoApp is registered to: ' + RegistrationString +
  40.                        Chr(10) + 'Thanks for registering DemoApp!';
  41.       StrPCopy(NullTerminatedString, MessageString);
  42.       MessageBox(0, NullTerminatedString, 'DemoAppW', 0);
  43.    end
  44.    else
  45.    begin
  46.  
  47.       { If we are operating in UNregistered mode, display UNregistered message }
  48.       MessageString := 'DemoApp is NOT registered' + Chr(10) +
  49.                        'Please remember to register DemoApp!';
  50.       StrPCopy(NullTerminatedString, MessageString);
  51.       MessageBox(0, NullTerminatedString, 'DemoAppW', 0);
  52.    end
  53.  
  54. end.
  55.